home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / mikes30c.arc / CLS.C < prev    next >
Encoding:
Text File  |  1985-09-25  |  201 b   |  15 lines
  1. cls()         /* Clear the screen  */
  2. {
  3.  
  4.     union REGS REG;
  5.  
  6.     REG.x.ax = 0x0600;
  7.     REG.h.bh = 0x07;
  8.     REG.x.cx = 0X0000;
  9.     REG.x.dx = 0x184f;
  10.     int86(0x10, ®, ®);
  11.  
  12. }
  13.  
  14.  
  15.